Dim strConnString As String = "Data Source=.\SQLExpress;AttachDbFilename=|DataDirectory|Database.mdf;Integrated Security=True;User Instance=True"
Dim objConn = New OdbcConnection(strConnString)
Dim cmd As OdbcCommand = New OdbcCommand("SELECT/INSERT/UPDATE STATEMENT", objConn)
Dim ad As OdbcDataAdapter = New OdbcDataAdapter
ad.SelectCommand = cmd
objConn.Open()
.
.
.
objConn.Close()
Hope this helps! :)